package CSS::Builder::Base;
#
# Mikhail Maluyk
# Fri Dec  5 07:27:35 2008
#
# CSS::Builder::Base - Base class for CSS Builder
#

use Moose;

has 'attr' => ( isa => 'Any' , is => 'rw' );


sub cancss {
      my ($self , $class) = @_;
      $self->can($class, 'css');
}

sub docss {
      my $class = shift;
      if($class->cancss($_[0], 'css')) {
	    return $_[0]->css
      } else {
	    return $_[0]
      }
}

1;

__END__

=head1 NAME

CSS::Builder::Base - Base class for CSS Builder

=head1 SYNOPSIS

    use CSS::Builder::Base;
    my $base = CSS::Builder::Base->new;
    # DO NOT use it directly

=head1 ABSTRACT

=head1 DESCRIPTION

=head1 ACCESSORS

=head2 C<attr>

=head1 METHODS

=head2 C<new>

The constructor

=over 4

=item * Arg

Argument

=back

=cut

=head2 C<cancss>

Function description

=over 4

=item * Arg

Argument

=back

=cut

=head2 C<docss>

Function description

=over 4

=item * Arg

Argument

=back

=cut

=head1 SEE ALSO

L<Moose> L<CSS::Tutorial>, L<perlpod|Pod::perlpod>, L<perlpodspec|Pod::perlpodspec>

=head1 LICENSE

This software is released under the same terms as perl itself.
If you don't know what that means visit http://perl.com/

=head1 AUTHOR

Copyright (C) Mikhail Maluyk 2008
All rights Reserved

=cut

EOF